        //#ifdef SPLASHSCREEN
		// Splash Screen
			Splash = new TSplash(Application);
			Splash->Show();			// show splash screen
			Splash->Update();		// Paint splash screen
        //#endif
=============================================================================

#include <Forms.hpp>
#include <ExtCtrls.hpp>
#include <Graphics.hpp>
#include <jpeg.hpp>
//---------------------------------------------------------------------------
class TSplash : public TForm
{
__published:	// IDE-managed Components
	TImage *Image1;
	TTimer *Timer1;
	void __fastcall Timer1Timer(TObject *Sender);
	void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:	// User declarations
	void __fastcall CreateParams(TCreateParams &Params);
public:		// User declarations
	__fastcall TSplash(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TSplash *Splash;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

=============================================================================

#include "slash.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TSplash *Splash;
//---------------------------------------------------------------------------
__fastcall TSplash::TSplash(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TSplash::Timer1Timer(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TSplash::CreateParams(TCreateParams &Params)
{
TForm::CreateParams(Params);	// call base class first
Params.Style &= ~WS_CAPTION;	// then remove the caption
}
void __fastcall TSplash::FormClose(TObject *Sender, TCloseAction &Action)
{
Action = caFree;	
}
//---------------------------------------------------------------------------

=============================================================================

object Splash: TSplash
  Left = 420
  Top = 163
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Splash'
  ClientHeight = 328
  ClientWidth = 527
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Timer1: TTimer
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 312
    Top = 32
  end
end

=============================================================================

